home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / util / misc / Fudgit233.lha / Source / examples / fudgitrc < prev   
Encoding:
Text File  |  1993-12-14  |  3.4 KB  |  166 lines
  1. echo
  2. echo Hello there!
  3. echo
  4. set pager "/usr/local/bin/less -ME"
  5. macro vl!oad 1
  6.     vi $1
  7.     load $1
  8. stop
  9. macro efitp!lot 4
  10.     save vector $1 $2 $3 $4 $Tmp.fit
  11.     pmode plot '$Tmp.fit' us 1:4 wi li, '$Tmp.fit' us 1:2:3 wi err
  12. stop
  13. macro fitp!lot 2
  14.     save vector $1 $2 $2FIT $Tmp.fit
  15.     pmode plot '$Tmp.fit' us 1:2, '$Tmp.fit' us 1:3 wi li
  16. stop
  17. macro egnu!plot 3
  18.     save vector $1 $2 $3 $Tmp.2
  19.     pmode plot '$Tmp.2' us 1:2:3 wi err
  20. stop
  21. macro rgnu!plot 2
  22.     save vector $1 $2 $Tmp.2
  23.     pmode replot '$Tmp.2' wi li
  24. stop
  25. macro pv 1 
  26.     show vec $1 # show vectors
  27. stop
  28. macro cd 1
  29.     pmode cd '$1'
  30.     &cd $1
  31. stop
  32. # Print a copy using the laser printer (square)
  33. macro psqpost 0
  34.     sqpost $Tmp.post
  35.     ! (sleep 10; lpr $Tmp.post ; rm -f $Tmp.post ) &
  36. stop
  37. # Make a postscript file of the current plot (square)
  38. macro sqpost 1
  39.     pmode set size 0.7,0.92
  40.     pmode set term post port 'Helvetica-Bold'
  41.     pmode set outp '$1'
  42.     pmode rep
  43.     x11
  44.     pmode rep
  45. stop
  46. # Make a postscript copy of the current plot
  47. macro post 1
  48.     pmode set size 0.7,1.0
  49.     pmode set term post port 'Helvetica-Bold'
  50.     pmode set outp '$1'
  51.     pmode rep
  52.     x11
  53.     pmode rep
  54. stop
  55. # Make a fig copy of the current plot
  56. macro fig 1
  57.     pmode set size 0.7,1
  58.     pmode set term bfig
  59.     pmode set outp '$1'
  60. stop
  61.  
  62. # Some UNiX aliases
  63. alias date    !date
  64. alias mv    !mv -i
  65. alias cp    !cp -i
  66. alias rm    !rm -i
  67. alias m        !more -c
  68. alias clear    !clear
  69. alias sh     show
  70.  
  71. # Some more Gnuplot macros and aliases
  72. alias ResetPlot let plot_num = 0.0
  73. ResetPlot
  74.  
  75. # Reset and plot
  76. macro Pl!ot  2
  77.    ResetPlot
  78.    plot $1 $2
  79. stop
  80.  
  81. # auto replot for gnuplot (between ResetPlot calls)
  82. # uses default line or points
  83. macro pl!ot 2
  84.     save vector $1 $2 $Tmp.$plot_num
  85.     if (plot_num) then
  86.          pm replot '$Tmp.$plot_num' 
  87.     else 
  88.          pm plot '$Tmp.$plot_num' 
  89.     endif 
  90.     let plot_num++
  91. stop
  92.  
  93. # auto replot for gnuplot with points
  94. macro ppl!ot 2
  95.     save vector $1 $2 $Tmp.$plot_num
  96.     if (plot_num) then
  97.          pm replot '$Tmp.$plot_num' with points 1 2 
  98.     else 
  99.          pm plot '$Tmp.$plot_num' with points 1 2
  100.     endif 
  101.     let plot_num++
  102. stop
  103.  
  104. # auto replot for gnuplot with lines and titles
  105. macro tpl!ot 3
  106.     save vector $1 $2 $Tmp.$plot_num
  107.     if (plot_num) then
  108.          pm replot '$Tmp.$plot_num' title '$3' with lines
  109.     else 
  110.          pm plot '$Tmp.$plot_num' title '$3' with lines
  111.     endif 
  112.     let plot_num++
  113. stop
  114.  
  115. # auto replot for gnuplot with titles and points
  116. macro tppl!ot 3
  117.     save vector $1 $2 $Tmp.$plot_num
  118.     if (plot_num) then
  119.          pm replot '$Tmp.$plot_num' title '$3' with points 1 2
  120.     else 
  121.          pm plot '$Tmp.$plot_num' title '$3' with points 1 2
  122.     endif 
  123.     let plot_num++
  124. stop
  125.  
  126. # Init batch plot
  127. macro initbat!ch 0
  128.     set output $Tmp.batch
  129. stop
  130.  
  131. # Plot for gnuplot batch plots and titles
  132. macro tbpl!ot 3
  133.     save vector $1 $2 $Tmp.$plot_num
  134.     if (plot_num) then
  135.         let print ", '$Tmp.$plot_num' title '$3'"
  136.     else 
  137.         let print "plot '$Tmp.$plot_num' title '$3'"
  138.     endif 
  139.     let plot_num++
  140. stop
  141.  
  142. # Tell gnuplot to start
  143. macro bat!chplot 0
  144.     let print "\n" 
  145.     set output stdout
  146.     pmode load "$Tmp.batch"
  147.     pmode pause 0  "Batch plotted"
  148. stop
  149.  
  150. # More Gnuplot aliases
  151. alias rep!lot pm replot
  152. alias log pm set log
  153. alias nolog pm set nolog
  154. alias xrange pm set xrange
  155. alias yrange pm set yrange
  156. alias auto pm set auto
  157. alias title pm set title
  158. alias xlabel pm set xlabel
  159. alias ylabel pm set ylabel
  160. alias line!s pm set data style line
  161. alias point!s pm set data style points
  162. alias nokey pm set nokey
  163. alias key pm set key
  164. alias source load
  165. alias format pm set format 
  166.